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Preface 


After purchasing my first computer and spending 
many hours programming and learning how to make it work, 
I began writing programs for specific applications. 

I realized very quickly that a lot of the programs | 
needed were already written, but many of them were in var- 
ious other BASIC languages. It was also obvious not only that 
BASIC differs from machine to machine but also that each 
machine might have different versions of their own BASIC (for 
example, Level I and Level II, Integer and APPLESOFT ID)! 

With the help of a good friend who owned a different 
machine, we began to explore the differences between the lan- 
guages. After a lot of research we found that, even though 
many commands were different, for the most part they per- 
formed similar functions (for example, the command CLS in 
TRS-80 does exactly the same thing as the command HOME 
in APPLE IT). 

As a result of our explorations on many different ma- 
chines, we put together this guide to help translate programs 
into a variety of machine “languages.” With this guide you 
will be able to select a program in its listed form and translate 
it to your particular machine, thus saving you from having to 
“reinvent the wheel.” 

There are a few considerations that must be kept in 
mind while you are translating. First, since the video formats 
differ from machine to machine, you will have to adjust print 
statements for the size of the video on your machine. Second, 
each machine has its own particular graphics capabilities, and, 
although graphics are discussed briefly in the various chap- 
ters, your own imagination will be your best guide to the kind 
of graphics you will want to use. Third, we have found through 
experience that most errors occur in our translations as a re- 
sult of the incorrect formatting of IF... THEN statements. 
Since every machine has its own peculiarities concerning 


IF... THEN statements, you should take extra care to un- 
derstand the purpose of these statements and their desired 
results. 

We sincerely hope that this guide will allow you to 
make better use of your equipment and save you trouble in 
translating by providing a quick reference to the mysteries of 
those “other machines.” 

A lot of effort and time went into the compiling of this 
book, and its completion was due largely to the patience of Pat 
and Jane. 


D. A. BRAIN 
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Chapter 1 


METHODS 
OF TRANSLATION 


With the advent of the microcomputer, accessibility to 
computer technology has increased enormously. Prices are now 
within the reach of most individuals, and the software support 
is increasing almost daily. 

The major problem in the field of microcomputing to- 
day, however, is still software support. The number and vari- 
ety of programs available to microcomputer owners are vir- 
tually infinite, but the types of software available are very 
limited. This situation has come about for a number of reasons, 
not the least of which is marketability. If a program does not 
appear to have a very wide appeal, it will probably not be 
published on tape or disk for the consumer. A large variety of 
programs is available, however, in the various magazines for 
the microcomputing market. It is to these listed programs that 
we will address our efforts. 

The published programs themselves often create an- 
other problem. If the program is one that we might want to 
use, it may or may not be in the correct machine language for 
us to use it. Each computer has its own strong and weak points, 
but the major problem is that none of the available languages 
are compatible (we are able, however, to make the machines 
compatible). For whatever reason, each manufacturer has its 
own version of BASIC that runs only on its own machine. 

Fortunately, software follows the same sort of logic no 
matter what brand of machine it is written on. Programs writ- 
ten for one microcomputer will work on just about any other 
kind if the language differences are compensated for. 

The BASIC (Beginner’s All-purpose Symbolic Instruc- 
tion Code) language has been accepted as more-or-less stand- 
ard for almost all microcomputers, but each manufacturer has 


added (or left out) a few commands or used different labels (or 
commands) to perform the same function (the command CLS 
in TRS-86, the command HOME in APPLE II, and the com- 
mand PRINT “44”in PET all do the same thing). Fortunately, 
there is enough similarity between machines to allow us to 
translate programs from one machine to another. 

In this book, we will consider three of the most popular 
microcomputers on the market (TRS-80, APPLE II, and PET) 
and show how you can translate programs for one machine for 
use on the machine available to you. 

When preparing to use a listing made for another ma- 
chine, you will save a lot of time if you sit down with the 
listing and try to figure out the flow of the program before 
starting to translate it. There may be improvements you can 
make based on your own experience, or you may find specific 
commands that need subroutines for which you will have to 
allow additional space. Having an understanding of how the 
program works will not only speed up the process of translation 
but also help you format your screen display. Differences in 
some of the functions of the various machines will create prob- 
lems if you don’t plan ahead and identify them in advance. 

The major differences you will encounter are in the 
area of graphics. Different machines have different graphic 
capabilities, and any attempt to “translate” will result in 
extreme frustration. The best course of action is to determine 
exactly what it is that should be graphically displayed, refer 
to the screen charts at the back of the book, and use your 
imagination to create your own graphics. I look upon this part 
of translating as a challenge, and it usually turns out to be the 
most interesting part of the program. 

Some of the programs you encounter will present prob- 
lems that are not covered in this book. The most common prob- 
lem will occur in programs or subroutines written in machine 
language. Machine-language routines are used primarily to 
save memory and speed up the execution of a program. Usu- 
ally, if you understand the flow of a program, you will be able 
to determine what the machine-language routine is supposed 
to do. If so, you can probably create a BASIC subroutine to 
accomplish the same result. 

This book has been organized in three major chapters. 
Each of these deals with a specific machine, and each major 
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section of each chapter deals with one given language. Some 
of the functions described are provided for background infor- 
mation only. In each section all the commands you are likely 
to encounter in a program listing are compared to instructions 
used on your own machine. The basic format for this guide ts: 


Listing Your Machine 


Command Command Comments 


Any peculiarities of a machine are listed at the end of each 
section. 

Here is a simple example of how a translation is made 
from the TRS-80 to APPLESOFT II. Suppose that the program 
listing in the TRS-80 is 


10 CLS: PRINT “HELLO” : END 


Refer to Sec. 3.1 of Chap. 3 to find the equivalent com- 
mand to CLS in APPLESOFT II. It appears as follows: 


CLS HOME 


In your program converting TRS-80 to APPLESOFT II, you 
would therefore type: 


10 HOME: 


Then, in case you aren’t sure, look up the commands END 
and PRINT in the same way. After the line has been com- 
pletely translated, it will look like this: 


10 HOME: PRINT “HELLO” : END 


After studying this book and translating a few pro- 
grams, you will soon recognize what needs to be changed and 
what can remain the same. 

In case you should need a quick guide to what some of 
the commands mean, a detailed explanation of APPLE ITI com- 
mands has been provided in the section for translation of AP- 
PLE II to TRS-80. Although the intent of the author is not to 
teach you how to program, this quick reference source may 
help you.if you should come across an unfamiliar command 
while doing your translation. 


Methods of Translation 


Ultimately, the purpose of this book is to expand your 
access to a much larger variety of software so that you can 
choose the kind best suited to your needs. 
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Chapter 2 


CONVERSION OF 
APPLE IT AND PET 
PROGRAMS INTO TRS-80 


This chapter is designed for easy conversion of PET 
and APPLE II programs into TRS-80. On the whole, the com- 
mands are in alphabetical order for quick reference. Several 
subroutines are included to allow you to approximate PET or 
APPLE I commands that do not directly relate to TRS-80 
commands. 

Graphics will again be discussed from the standpoint 
of what can and what cannot be done, but, for the most part, 
your own imagination will be the best guide in trying to con- 
vert APPLE II and PET graphics into TRS-80. 

The format for this chapter is as follows: 


APPLE H/PET 


TRS-80 Function Comments 
Function 


Every command with a direct relationship to TRS-80 
is included, but a few TRS-80 commands that do not relate to 
either the PET or APPLE II are not listed. Subroutines and 
other conversion considerations that allow the TRS-80 to per- 
form a PET or APPLE II function will be found in the com- 
ments section at the side of each command. 


Notes on TRS-80 Model Iil 


TRS-80 Model III has all the language features of 
Model I and a few more. The addresses—PEEKS and POKES 
(see the list below)——are different in some cases, of course, but, 
for the most part, Model I and III are very similar. 


Although there have been hardware modifications, 
these will not alter the translation of listed programs. Video 
display addresses and graphics characters (128-191) are iden- 
tical. In fact, from a translation standpoint, Modell and 
Model III BASIC are identical except for the addition of 
TIME$, which relates to the real-time clock. 

The video display of Model III uses a different char- 
acter set: an additional set of 96 special characters. 

Although some Model I software will not run on Model ITI, 
you will still be able to translate the listings by using the guide to 
Model I. 

The POKES in Model III are as follows: 


16412,1 Set blinking or solid cursor; can be elimi- 
nated 
16419,176 Code for cursor character is in this location; 
can be eliminated 
16916,x Affects scrolling of x lines of screen; can be 
eliminated 
16888 Serial I/O baud rate code 
16890 Serial I/O Wait/Don’t Wait switch 
16872 Character input buffer 
16880 Character output buffer 
16889 Parity/Word length/Stop bit 
16928 
to SOURCE and DESTINATION memory lo- 
16931 cations; can be eliminated 
16919 
to Real-Time clock; can be eliminated 
16924 
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2.1 Conversion of APPLE Il into TRS-80 


Commands 


te, 


APPLE If 
ABS(x) 


AND 


ASC(‘'x’’) 
or 
ASC(x) 


ATN(x) 


AUTO xxx 


TRS-80 
ABS(x) 


AND 


ASC(x) 


ATN(x) 


AUTO xxx 


Comments 


Same function. The command ABS 


(variabie) returns the absolute value 
of the variable x. The command is 
valid in Integer and Floating-Point 
BASIC. 


Same function. AND is a logical 


operator. When it is used in an 
assertion, both elements of the 
statement on either side of the AND 
must be true, or the entire 
statement will be viewed by the 
computer as false. AND is used in 
both Integer and Floating-Point 
BASIC. 


Same function. The command 


ASC(variable) returns the decimal 
equivalent of standard ASCII code. 
The operation is valid in Integer and 
Floating-Point BASIC. In Integer 
BASIC programs, the “x" may or 
may not be seen. The quotation 
marks perform no additional 
function. 


Same function. The command 


ATN(variable) returns a value for 
the variable or a number expressed 
in radians. The ATN(variable) 
function is not available in Level I. 


Same function. The command 


produces automatic line numbering, 
in which xxx specifies the starting 
line number. tf-no- increment is 
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Commands (continued) 


APFLeE il TRS-80 Commenis 


entered, the machine will increment 
each line number by 10. AUTO line 
numbering is not available in 

Level I. 


AUTO xxx,yy AUTO xxx,yy Same function. The command 
produces automatic line numbering 
in which xxx designates the starting 
line number and yy the increment 
by which the line numbers will 
increase. 


CHR$(7) None In an APPLE II program, CHR$(7) 
will cause the computer's 
built-in speaker to “beep.” There is 
no direct equivalent operation 
available to the TRS-80 without 
modification. In a conversion, it is 
not necessary to include the 
function. 


CALL x USR(@) Partially similar function. On APPLE Il, 
the CALL expression will cause the 
computer to execute a machine- 
language subroutine beginning at 
the memory address specified by 
the expression. There is no 
equivalent available to Level I. In 
Level Il, the function can be 
approximated as follows: 


POKE 16526,y: POKE 16527,z: 
x=USR(Q) 


(Note: y designates the most 
significant byte and z designates 
the least significant. See USR 
command in Level II manual.) 
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CHR§(x) CHR$(x) Same function. CHR$(variable) 
returns the ASCII equivalent 
of the decimal within the 
parentheses. The function is not 
available in Level I. 


CLEAR CLEAR Approximately the same function. On 
APPLE Il, CLEAR sets all variables 
to zero and all strings to nuil (“”). 
In Level ll, it may be necessary to 
execute a CLEAR xxx, where xxx 
indicates the amount of string space 
to be reserved. 


CLR CLEAR Same function as described above. 
CLR is found in Integer BASIC 
programs. Note that it is not 
necessary for the APPLE I! to 
reserve string space as this function 
is performed automatically by the 
computer. 


COLOR=x None In all APPLE II graphics, a color must 
be specified prior to atternpting to 
plot a point or line. In Integer 
BASIC, x will equal any number 
from 9 to 15 and will usually be 
preceded by the command GR. In 
Floating-Point BASIC, x will equal 2 
to 15 (following the command GR:) 
or 2 to 7 (following the command 
HGR:). On the TRS-80, no color 
graphics function is currently 
available without modification, and 
hence the command can be 
ignored. 


CON CONT Same function. The command causes 
the program to continue its 
operation where it was stopped. 
Variables are not reset. 
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Commands (continued) 


APPLE Il 


CONT 


COS() 


DATAx,y,z 


DIMx(y) 


DIMxS(y) 


DEF FN x 


DEL x 


DEL x,y 


TRS-80 


CONT 


COS (x) 


DATAx,y,z 


DIMx(y) 


DIMxS(y) 


None 


DELETE x 


DELETE x-y 


Comments 


Same function as described above. 
The command will be found in 
Floating-Point BASIC. 


Same function. The COS(variable) 
command returns the cosine of the 
variable x. This function is not 
available in Level |. 


Same function. When a READ 
command is encountered in a 
program, DATAx,y,z will be read 
sequentially. 


Same function. When a DIMx(y) 
command is executed, the computer 
will set aside y spaces for an x 
array of variables. 


Same function. When a DIMx&(y) 
command is executed the computer 
will set aside y dimensions for an 
array of x$ variables. 


This command in an APPLE Il 
program allows the programmer to 
define a function and then utilize 
that function again by using the 
command FN x. Since there is no 
equivalent TRS-80 command, it 
must be specified each time it is 
needed. 


Same function. The command DEL x 
causes the line number x to be 
deleted from the program. 


Same function. The command deletes 
all line numbers between (and 
including) x and y from the program. 


10 The BASIC Conversions Handbook 


DRAW x 


END 


EXP(x) 


None 


END 


EXP(x) 


When encountered in a Floating-Point 


BASIC program, the computer will 
draw shape number x (previously 
loaded in machine language) at the 
next point identified; for example, 
DRAW x AT y. There is no 
equivalent function available in the 
TRS-80. However POKE graphics 
may be used as an approximate 
substitute. (See Level |] manual.) 


Same function. In all cases, the 


command END will terminate the 
execution of a program whenever 
encountered. 


same function. The command EXP(x) 


will raise a variable to the indicated 
power x. This function is available in 
Level Il only. 


FOR x=y TO FOR x=y TO Same function (a common loop). In 


z: NEXT 


FLASH 


Zz: NEXT 


None 


Level |, NEXT must be followed by 
the specified variable. (Example: 
FOR x=y TO z: NEXT x). When the 
function is used as a timing loop, it 
should be remembered that the 
APPLE II operates approximately 
two and a half times faster than the 
TRS-80. Timing loops should be 
reduced by a factor of 2.5. 


The command FLASH causes 


everything printed (displayed) on 
the screen to FLASH. Although 
there is no directly related TRS-80 
command, one way to approximate 
the function is as follows: 


FOR X=1 TO 20: PRINT @ 936, 
“HELLO”: 
FOR y=1 TO 50: NEXT Y: PRINT 


@ 936," ": NEXT X 
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Commands (continued) 


AFPFLE fi TAS-6O Comments 


FRE(x) FRE(x) Approximately same function. The 
command FRE(x) returns the 
amount of memory available to the 
user. It also serves to houseclean 
the comnuter of miscellaneous data 
that has no function within a current 
program. 


GET x$ INKEYS$ Similar function. The common GET 
(variable)$ causes the program to 
halt and wait for a string variable x 
to be input. It is not necessary for 
the ENTER key to be pressed for 
the input to be accepted. INKEY$ 
does not cause program flow to 
halt. You must force it to wait by 
means of the following: 


19 IF INKEY$=“" ” THEN GOTO 19 


The APPLE Il command GET x$ 
need not be followed by the 
evaluation and limiting statements 
needed on the TRS-80. 


GOSUB x GOSUB x Same function. The branching 
statement GOSUB (line number) 
sends the program operation to the 
subroutine located at the line 
number specified. The next 
RETURN command encountered 
will return the flow of operation to 
the place in the program where the 
GOSUB was encountered. 


GOTO x GOTO x Same function. The branching 
statement GOTO (line number) will 
send the program operation to the 
line number specified. 
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GR None No equivalent function is needed on 
the TRS-80. The GR command on 
the APPLE II is needed to switch 
the screen display to the LO-RES 
graphics mode, whose screen is 
normaliy a 40 by 40 matrix. (See 
Appendix C for screen conversion.) 


HCOLOR=x = None No equivaient function exists on the 
TRS-80 without modification. The 
command is needed on the 
APPLE II following the HGR 
command to designate which of the 
seven HGR colors will be used. A 
color value (@ to 7) will be 
designated. For the purposes of 
conversion, this command and its 
elements should be ignored. 


HGR None No equivalent function exists on the 
or TRS-80 or is necessary for 
HGR2 conversion. The HGR command on 


the APPLE Il sets the screen to the 
HI-RES graphics mode. HI-RES 
graphics are not available on the 
TRS-80 without modification. The 
closest TRS-80 procedure available 
may be the use of POKE graphics 
(Level Il only), which will 
approximate the desired display. 
(See Level |! manual.) 


HIMEM=x MEMORY Same function 
SIZE ? 


HLIN x,y AT z None The command HLIN is a graphics- 
related command. It draws a 
horizontal line from x to y at the 
vertical position z on the screen. It 
may be approximated as follows: 


FOR z=x TO y; SET(Z.Y): NEXTZ 
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Commands (continued) 


APPLE Il 


HOME 


HPLOT x,y 


HTAB x 
or 
HTAB (x) 


IF.... THEN 


IN# x 


TRS-80 


CLS 


None 


PRINT @ 
or 
TAB(x) 


IF... THEN 


None 


Comments 


This will draw a line from x to y at 
the vertical position Y(z). 


Same function. This command clears 


ihe aisplay screen and returns the 
cursor to the upper left corner of the 
screen. 


This command is the HI-RES graphic 


equivalent of SET (x,y). No 
equivalent exists on the TRS-80 
without modification. ASCII 
characters may sometimes be 
POKED on the screen to 
approximate the desired results. 
The TRS-80 command PRINT @ 
may also serve as an adequate 
substitute. 


On the APPLE II, HTAB x will move 


the cursor (and next print location) 
horizontally to position x of the print 
line that is currently being 
displayed. 


Same function. IF... THEN is a 


conditional control statement. In a 
Floating-Point BASIC program, all 
commands after this statement will 
be ignored if the statement is false. 
In an Integer BASIC program, the 
statement functions in the same 
way it does on the TRS-80. 


This command addresses a peripheral 


slot within the APPLE Il designated 
by x. On a TRS-80, no equivalent 
exists without an expansion 
interface and associated equipment. 
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INPUT”... .”’ 


INPUT x 


INPUT x,y,z 


INPUT A$ 


INT (x) 


INPUT"... 2” 


INPUT x 


INPUT x,y,z 


INPUT A$ 


INT(x) 


Depending on the data being 
transferred to the computer by the 
command, it may be possible to 
approximate the function by the use 
of the INPUT#-x command and an 
attached cassette recorder. (See 
the TRS-80 manual.) 


Same function. Program operation will 
halt until the requested data is 
entered in the computer. The 
command will print whatever is 
between the quotation marks on the 
screen and put a ? and cursor after 
it. 


Same function. The program operation 
will halt and wait for the requested 
simple variable to be entered. 


Same function. The program operation 
will halt until each of the simple 
variables has been entered. The 
variables must be numbers only. 


Same function. The program 
execution will halt until the 
requested string variable is entered. 
Note that TRS-80 Level | will accept 
only two string variables: A$ and 
BS. 


Same function. The command INT(x) 
will return the integer of the variable 
x. In converting some Integer 
BASIC programs to TRS-80, it may 
be necessary to check any division 
performed. Since APPLE II Integer 
BASIC will automatically return an 
integer, it may be necessary to 
insert an INT(x) in a TRS-80 
conversion. 
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Commands (continued) 


APPLE il 


INVERSE 


LEFT $(X$,x) 


LEN(X$) 


LET 


LIST 


LIST x 
LIST x,y 
LIST x-y 
LIST x- 
LIST, x 


TRS-&O 


None 


LEFT$(X$,x) 


LEN(X$) 


LET 


LIST 


Comments 


No equivalent command exists on the 
TRS-80 for this command, which 
causes any text printed under it to 
be displayed as black letters on a 
white background. Conversion is noi 
needed. 


Same function in Level II but not 
available in Level |. This command 
causes the computer to recognize 
(or operate on) x number of 
characters of X$, starting from the 
left side of the string. 


Same function. The command 
LEN(X$) will return a numeric that 
equals the number of characters 
within X$. This function is not 
available in TRS-80 Level |. 


Same function. This optional 
command may be encountered 
when a simple variable is set equal 
to some other simple variable. It is 
not necessary to include it in a 
conversion. 


Same function. The command LIST 
will cause the entire program to be 
listed sequentially by line number 
from beginning to end. 


Same function. LIST x will display the 
line number designated by x. LIST 
x,y will display line numbers x 
through y as will LIST x-y. LIST x- 
will display from line number x to 
the end of the program. 
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LOAD 


LOG(x) 


LOMEM 


MIDS(‘“. . . 


y,zZ) 
Or 
MID$(X$,y,z) 


NEW 


NEXT 


CLOAD 


LOG(x) 


None 


MIDS(“ 


y,Z) 
or 
MID$(X$,y,z) 


NEW 


NEXT 


Same function. The command LOAD 
causes the computer to accept 
incoming data from the tape 
cassette player. Execution of this 
command may be immediate or 
deferred. 


same function. LOG(expression) will 
return the natural logarithm of the 
expression. This function is not 
available in Level |. 


No equivalent function is available in 
the TRS-80. Since LOMEM is used 
in APPLE II programs to prevent HI- 
RES graphics from clobbering the 
variable storage area of the 
memory, it is not usually required in 
a conversion. 


same function. In both cases, the 
command will cause the computer 
to read the string starting with the y 
character designated and read the z 
characters indicated. This function 
is not available in Level |. 


Same function. Execution of the 
command (either immediate or 
deferred) sets all program pointers 
to the machine basic program start 
point and effectually deletes the 
current program and all previous 
variables. 


Same function. The command NEXT 
indicates the “bottom” of a FOR... 
NEXT loop. Depending on the Level 
(| or Il), it may be necessary to 
specify what variable is NEXT (for 
example, NEXT x). 
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Commands (continued) 
APPLE Il TRS-80 Comments 


NORMAL None No equivalent function exists or is 
needed on the TRS-80. The 
command terminates the operation 
of the APPLE II commands FLASH 
and INVERSE. 


NOT NOT Same function. The logical operator 
NOT is usually found in a statement 
that may include an IF or an AND 
(see TRS-80 Manual). 


NOTRACE TROFF Same function. Although not 
commonly used in programs, this 
command turns off the line number 
TRACE function of the computer. 


ON ERR ON ERROR Same function. This command may be 
GOTO GOTO inserted in a program if an error is 

likely to occur at a given point. Ina 
Floating-Point BASIC program, one 
might also find a POKE 216,90 in the 
proximity of the error-handling 
statement or whereever the 
program flow has been sent. This 
POKE command sets the APPLE 
II's error-detecting flag back to its 
normal error-handling operation. 


ON x GOSUB ON x GOSUB Same function. Each increment of x 
XX, YY,ZZ XX,YY,22 encountered will cause a branch to 
the subroutine at its corresponding 
line number, execute the 
subroutine, and return to its point of 
departure within the program. 


ON x GOTO ONxGOTO — Same function. Each increment of x 
XX, YY,ZZ XX, YY ,Z2Z encountered will cause a branch to 
its equivalent or specified 
corresponding line number. 
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OR 


PDL({x) 


PEEK(x) 


PLOT x,y 


POKE x,y 


POS(@) 


PR#x 


OR 


None 


PEEK(x) 


SET(x,y) 


POKE x,y 


POS(®) 


None 


Program operation will continue 
from the line number designated. 


Same function. OR is a logical 
operator used in a comparison or 
relationship. 


The PDL(x) function is not available in 
the TRS-80 without modification. 
PDL refers to the game controllers 
that are available on APPLE II 
computers. The (x) will normally be 
a value between @ and 3, indicating 
which of the controls is to be read. 


Same function. It returns the decimal 
equivalent of the contents of the 
memory address specified by (x). 
This function is not available in 
Level |. 


Same function. On APPLE Il, the 
command PLOT will turn on a LO- 
RES graphics block specified by the 
variables x and y or any expression 
used to produce a number within 
the limits of the screen. 


Same function. It stores the machine- 
language equivalent of the variable 
y at memory address x. POKE is 
not available to Level I. 


Same function. POS(@) will return the 
horizontal position value (@ to the 
length of the TAB field) of the 
current cursor location. 


On APPLE Ii this command sends 
computer output to the peripheral 
slot designated by x. No direct TRS- 
80 equivalent exists without the 
expansion interface and associated 


peripheral hardware: In some cases 
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Commands (continued) 


Se tae 
LS 


APPLE fi TRS-80 Comments 


it may be possible to address the 
output to the cassette recorder with 
the PRINT#-1 command. 


PRINT PRINT Same function. This command causes 
the specified operation to be 
displayed on the video screen. 


READ x READ x Same function. The command READ 
will cause the variable indicated (x) 
to accept the successive values as 
they occur in the programs DATA 
statements. The command may also 
be followed by a string designator 
(READ X$). This will cause all the 
DATA statement elements to be 
read as strings. Reading strings is 
not available on Level I. 


RECALL x INPUT #-1 Approximately the same function. In 
APPLE II programs, the command 
will cause the computer to input 
data from the cassette recorder. 
The data will be in the form of 
simple numerical variables or a real 
or integer array. Data “recalled” will 
be stored in a previously 
dimensioned array or variable list. 


REM REM Same function. The command REM 
allows the programmer to include 
nonoperational text in the program 
as remarks. REM statements may 
be included or ignored. If a REM is 
left out, be sure that nothing in the 
program branches to the line 
number excluded. 


RESTORE RESTORE Same function. The command 
RESTORE causes the stack pointer 
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RETURN 


RESUME 


RETURN 


RESUME 


of the data list to reset to the 
beginning of the program’s DATA 
lines. The next READ command 
encountered will cause DATA to be 
read from the beginning of the list. 


same function. RETURN will complete 
the branching statement initiated by 
the command GOSUB. Program 
operation will return to the location 
where the GOSUB was 
encountered and begin with the 
next command or operation (see 
POP). 

Usually the same function. This 
command at the end of an error- 
handling routine (ONERR GOTO) 
will cause the program operation to 
continue from the point where the 
error occurred. All previous 
variables remain in memory except 
for those that may have been part 
of the original error. 


RIGHT$(X$,y) RIGHT$(X$,y) Same function. This command will 


or Or 

RIGHTS$("...”, RIGHTS("...”, 
y) y) 

RND (X) RND(X) 

RND (0) RND(O) 

RND(-X) RANDOM. 


cause the computer to read the 
designated string (X$) from the right 
end to the character that is y places 
from the right. Any action performed 
will be done on the last y characters 
of the string. 


Approximately the same function. 
RND(X) will return a value between 
£ and 1 (.00000001 to .99999999) 
only, regardless of the value of X. 


same function. RND@) returns the 
most recentiy generated random 
number between @ and 1. 


_Same function. This. command will 


generate a specific random number 
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Commands (continued) 


APPLE il 7RS-80 Comments 


that will be the same each time the 
argument is encountered. Positive 
RND numbers used in conjunction 
with the negative RND will vary in a 
pariicuiar, repeaiabie sequence. 
Any new RND (positive number) 
used outside the argument will be 
treated normally (see Level II 
manual). 


ROT None No equivalent function exists in the 
TRS-80. The command ROT is 
used in conjunction with a HI-RES 
graphics SHAPE that has been 
entered in the computer in machine 
language. Depending on the 
SHAPE drawn, it may be possible 
tO approximate it with a POKE 
graphic combination. If so, the 
shape will have to be re-POKED on 
the screen to vary its location. 


RUN RUN Same function. The command sets all 
variables to @ or “”’ (null) and 
directs program execution to start at 
the lowest line number of the 
program. 


RUN x RUN x Same function. RUN x will set all 
variables to 9 or “”’ (null), but 
program execution will begin at the 
line number specified by the 
number x. 


SAVE CSAVE Same function. This command will 
cause the computer to store the 
current program in memory on 
cassette. 
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SCALE=x None The command SCALE is applied to 
the commands of DRAW and 
XDRAW in a Floating-Point BASIC 
program. SCALE sets the relative 
size of the machine-language 
SHAPE to be drawn in HI-RES 
graphics. No equivalent command is 
available or needed in the TRS-80. 
Size will increase from 1 to 255 
times. (SCALE=9 is the largest 
possible.) To approximate the 
function, the shape will have to be 
plotted larger manually or scaled 
with a subroutine. 


SCRN(x,y) POINT (x,y) Similar function. In the LO-RES 
graphics mode, SCRN(x,y) will 
return the value of the color of the 
graphics block at the point specified 
by coordinates x,y. 


SGN(x) SGN(x) Same mathematical function. SGN(x) 
will return the sign (—1, 9, or 1) of 
the value of the argument (-1 for 
negative, 0 for value of 8, and 1 for 
a positive value). 


SHLOAD None No equivalent function. This command 
loads a HI-RES graphics shape 
from the cassette to just under the 
HIMEM limit of the memory. Ina 
Floating-Point BASIC program, 
HIMEM will then be set below the 
shape to protect it. The closest 
approximation available on the 
TRS-80 may be achieved by saving 
a simple shape as a DiMension and 
using the INPUT#-1 (and PRINT#- 
1) command to retrieve a specific 
shape. 


SING), SIN(X) Same mathematical function. SIN(x) 


will return the sine of the number 


Rn A AP TS aT TD 
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Commands (continued) 


APPLE Il TRS-80 Comments 


specified by x. This command is not 
available to Level I. 


SPC(x) STRING$(x,32) Approximately the same function. In 
an APPLE Il program, SPC(x) will 
be used in a PRINT statement. The 
command will cause x number of 
spaces to be inserted between the 
last PRINT if followed by a 
semicolon(;) and the next element 
to be PRINTed if SPC(x) is followed 
by a semicolon(;). 


SPEED=x None No equivalent function. The SPEED 
command in an APPLE II program 
allows the user to adjust the speed 
at which characters are displayed 
on the screen (or peripheral device) 
from a high of 255 (normal speed) 
to a low of 2. To approximate the 
function, TRS-80 PRINT statements 
can be slowed down through the 
use of timing loops and READ- 
DATA routines where feasible. 
Otherwise no conversion is 
available or needed. 


SQR(x) SQR(x) Same mathematical function. SQR(x) 
returns the square root of the 
number or expression specified by 
x. This command is not available to 
Level I. 


STEP x STEP x Same function. Used within a FOR... 
NEXT foop, the command will cause 
the program operation to increment 
(count) through the loop in multiples 
of x. 
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STEP —x 


STOP 


STORE x 


STRS(x) 


TAB(x) 


TAN(x) 


Same function. Used within a FOR... 


NEXT loop, the command will cause 
the program operation to decrement 
the starting value of x by multiples 
of x. 


Same function. This command causes 


the program operation to STOP at 
the line number where the 
command is encountered. The 
computer will display the line 
number where the program stopped 
on returning control to the user. 


Generally the same function. The 


command will write an integer or 
real array to the cassette. The data 
stored may then be accessed from 
a running program by the command 
INPUT#-1 (RECALL on APPLE Il). 
The handling of data in this manner 
requires that storage area for the 
incoming-outgoing data be 
previously DiMensioned within the 
program. 


Same function. This command will 


take the variables or expressions 
within the parentheses (x) and 
return them as a string. This 
function is not available to TRS-80 
Level I. 


Same function. TAB(x) will cause the 


cursor to tab x number of positions 
to the right of the left-hand margin 
of the screen. 


Same mathematical function. This 


command will return the value of 
the tangent of the argument or 
expression specified by x, which 
must be in radians. This function is 
not available in Level I. 


ae ee 
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Commands (continued) 

APPLE Il TRS-86 Cominients 

TEXT None No equivalent function. The TEXT 
command in APPLE II programs is 
required to switch from a graphics 
display mode (both HI-RES and LO- 
RES) to an all-text mode of display. 


No similar command is needed in 
the TRS-80. 


TRACE TRON Same function. The command causes 
the line number of program 
operation to be displayed on the 
screen along with the operation 
being performed by the computer 
(see NOTRACE). The TRON 
feature is not available in Levei I. 


USR(x) USR(Q) Similar function. The command allows 
the user to place the value of the 
expression within the parentheses 
in a specific memory address where 
it may be accessed by machine- 
language routines. The machine- 
language routine must have been 
previously POKEd or directly 
entered into the computer (see 
CALL). This function is not available 
to Level I. (See aiso Level Il 
manual.) 


VAL(“xyz”’) VAL(“xyz”) Same function. This command will 

or or cause the computer to try to 

VAL(X$) VAL(X$) evaluate the designated string in 
numeric terms. It will read the string 
up to the first nonnumeric character 
and return the value of the numbers 
read as a real or integer. If the first 
characters are letters or nonnumeric 
symbols, the string will be read as 


ka OO 
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VLIN a,b AT c None 


VTAB x PRINT@ x 
or 
VTAB (x) 


WAIT None 
XXXXX, YYZ 

or 

WAIT 
XXXXX, YVY 


having a value of 9. This function is 
not available to Level |. 


No direct equivalent exists in the TRS- 


80. The function draws a vertical 
line from point a to point b at the 
horizontal position c. The function 
can be approximated by the routine: 


FOR y=a TO b: SET(c,y):NEXTy 


On the APPLE Il, the command VTAB 


will move the cursor to the 
horizontal row (or tab vertically) to 
the position specified by the 
variable x. On the TRS-80, the 
PRINT @ command specifying the 
appropriate left-margin position will 
duplicate the function well. 


No equivalent function exists in the 


TRS-80. The command WAIT 
permits the programmer to use a 
conditional pause within an 
operating program. The computer 
will wait until the bit state of the 
address specified by xxxxx matches 
the binary equivalent of the decimal 
number specified by yyy. If a third 
expression is present (z), it will 
equal 1 or 8. The 1 indicates that 
you are waiting for the 
corresponding bit state to be low, J 
for the corresponding bit state to be 
high. (@ is assumed if no third 
expression is stated.) When the 
designated conditions are met, the 
operation will continue. (See 
APPLESOFT II Basic Programming 
Reference Manual.) 
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Commands (continued) 


APPLE If! TRS-80 | Comments 
XDRAW z AT None This command will draw the same 
XY shape previously drawn by the 


command DRAW z AT x,y in the 
complement of the COLOR 
préviously used. it has ine effect o 
“erasing” the shape drawn if the 
background color is the complement 
of the color used to draw the shape. 
No equivalent for this series of 
functions exists in the TRS-80 
without modification. A shape 
approximated on the TRS-80 may 
be removed from the screen by 
POKing the addresses used 
previously in the DRAW 
approximation to 6 (see DRAW). 


APPLE li PEEK, POKE, and CALL Statements and TRS-80 
Approximations 


APPLE Il TRS-80 Comments 
CALL —936 CLS Clears all characters and moves the 
cursor to the top left-most printing 
position 
CALL —958 PRINT Clears all characters from the current 
CHR$(31) cursor position to the bottom of the 
screen 
CALL -868 PRINT Clears all characters to the right of the 
CHR§$(30) cursor 
X= PEEK NONE Reads keyboard for the value of X. If 
(~ 16384) X>127, then the key has been 


pressed, and_X will be the ASCIl 
value of the key that was pressed 
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plus 128. Use: 
A$=INKEY$:X =ASC(A$) +128 


POKE-—16368, NONE Resets keyboard strobe (not needed 
J in translation) 


X=PEEK(36) X=POS(Q) Returns a number indicating the 
position of the cursor 


APPLE Ii POKES Ignorable During a Translation into TRS-80 


POKE 22, x Sets text window width 

POKE 32, x Sets left margin of display 

POKE 33, x Sets width of display 

POKE 34, x Sets top margin of display 

POKE 35, x Sets bottom margin of display 
POKE 36, x Moves cursor to horizontal position 


X+1 from left of margin 


POKE 37,x Moves cursor to absolute vertical 
position specified by x 


POKE 50, 127 Sets inverse mode in Integer BASIC 

POKE 50, 255 Seis normal mode in Integer BASIC 

POKE-16303, 8 Switches from color graphics to text 
without resetting scrolling window 

POKE-— 16304, 6 Switches display mode to graphics 
without clearing screen to black 

POKE—-—16368, 9 Resets keyboard strobe [after 
PEEK(— 16384)} 

POKE-—16302, 0 Switches from mixed text and 


graphics to full graphics 


POKE—16301, 9 Switches from full graphics to mixed 
graphics and text 
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APPLE ii POKES ignorabie During a Transiation into TRS-86 


(continued) 


HilllieeouUy 


POKE-— 16300, £ 
POKE-— 16299, 8 
POKE-— 16298, £ 
POKE—16297, 9 
POKE- 16296, 9 to 

POKE ~— 16289, £ 
POKE 216, £ 


POKE — 16336, 2 


Switches from page 2 to page 1 
Switches from page 1 to page 2 
Switches from HI-RES graphics to text 


Switches from text to same nage of 
HI-RES graphics 


Commands dealing with GAME 
paddles 


Resets error flag after error-handling 
routine 


Toggles speaker (Integer BASIC) 
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2.2 Conversion of PET into TRS-80 


Commands 


PET 


ABS(x) 


AND 


ASC (string) 


CHR§$(x) 
CLOSE 


TRS-80 
ABS(x) 
AND 


ASC (string) 


CHR$(x) 
NONE 


CLEAR 
NONE 


CONT 
COS(x) 


DATA 
NONE 


DIM 


END 
EXP(x) 


FOR 
FRE(x) 


NONE 


Comments 
Same function 
Same function 


Same function 


Same function 


Used to close logical file; not needed 
when inputting data from TRS-80 
tapes 


Same function 


Similar to the TRS-80 IN command; 
reads IEEE port for input 


Same function 


Same function 


Same function 


Not available in Level tl; each function 
will have to be calculated 
individually 


Same function 


Same function (usually optional) 


Same function 


Same function 


Same function 


Reads data tape; not needed with 
TRS-80° 
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Commands (continued) 


PET 
GETA 


GET A$ 
GOSUB n 
GOTO n 
IF 

INPUT 
INPUT# 
INT(x) 


LEFT$ 
LEN(string) 
LET 

LIST 

LOAD 


LOAD “file 
name” 


MIDS 


NEW 
NEXT 


ON x GOSUB 
ON x GOTO 
OPEN 


OR 


TRS-80 
NONE 


A$=INKEY$ 
GOSUB n 
GOTO n 

IF 


INPUT 


INPUT#— n 
INT(x) 


LEFTS 
LEN(string) 
LET 

LIST 
LOAD 
LOAD “x” 


MID$ 


NEW 
NEXT 


ON x GOSUB 
ON x GOTO 
NONE 


OR 


Comments 


Reads keyboard for variable input; 
use AS=INKEY$:A=VAL(A$) 


Same function 
Same function 
Same function 
Same function 
Same function 
Same function (reads input from tape) 


Same function 


Same function 
Same function 
Same function 
Same function 
Same function 


Same function except that PET file 
names may contain 16 characters 
or more, and TRS-80 file labels can 
contain only one character. 


Same function 


Same function 


Same function 


Same function 
Same function 


Opens logical file (similar to TRS-80 
INPUT#); reads data from tape file. 


Same function 
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PEEK(addr) 


POKE(addr) 


POS(x) 
PRINT 
PRINT# 


READ 
REM 
RESTORE 
RETURN 
RIGHT$ 
RND(x) 
RUN 


SAVE 


SAVE “file 
name” 
SGN(x) 


SIN(x) 
SPC(x) 


SQR(x) 
STOP 


STRS 


PEEK (addr) 


POKE(addr) 


POS(x) 
PRINT 
PRINT#— 


READ 
REM 
RESTORE 
RETURN 
RIGHTS 
RND(x) 
RUN 


CSAVE"x” 


CSAVE"x” 


SGN(x) 
SIN(x) 


STRING$ 
(x,32) 


Same function except that the 
addresses will be different 


Same function except that the 
addresses will be different 


Same function 
Same function 


Same function 


Same function 
Same function 
Same function 
Same function 
Same function 
Same function 
Same function 
Same function except that the TRS-80 
needs a file label 


Same function except that PET allows 
several characters and the TRS-80 
allows only one 


Same function 
Same function 


same function with the extra use of 
the STRINGS function (32 is the 
ASCII code for space). The SPC(x) 
function places x spaces on the 
screen. 


Same function 
Same function 


Same function 
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Commands (continued) 


PET 
SYS(addr) 


TAB(x) 
TAN(x) 
THEN 
TIS 


USR(x) 


VAL(string) 


VERIFY “file 
name” 


WAIT 


TRS-80 
SYSTEM 


TAB(x) 
TAN(x) 
THEN 

NONE 


USR(®) 


VAL(string) 


CLOAD?"x"' 


NONE 


Comments 


Similar function since the SYS 
function provides access to 
previously stored machine-language 
routines as does the SYSTEM 
command ([USR(®) may also be 
used] 


Same function 
Same function 


Same function 


Returns time recorded on PET internal 
clock; sometimes used to time input 
for program functions 


Same function except that the TRS-80 
will have only one USR available in 
Level Il 


Same function 


Same function except that the TRS-80 
allows only one character for a label 


Causes execution of a program to halt 
until a nonzero result of the 
argument in the WAIT statement is 
achieved 
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Other Indications 


PET/APPLE I! TRS-80 
% % 
T NONE 


Pet Graphics 


Comments 
Designated variables as INTEGERS 


The value of Pl must be inserted 
(3.1428) in programs using a 
variable 


The PET has built-in graphics characters in ROM that 
are often printed on the screen by using PRINT CHR§(x), (x 
being the ASCII representation of the graphics character); 
these graphics characters are not available on the TRS-80. In 
order to compensate for them in a program, refer to Chart 4 in 
Appendix C, and replace the character with POKE graphics in 


the TRS-80. 


Cursor Control Characters 


Each cursor control character is preceded by a PRINT 
command or used as a CHR$. The cursor control characters 
are listed in Section 3.2 (Chap. 3). 
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This chapter is designed for easy conversion of TRS-80 
and PET programs into APPLE II programs. The commands 
are listed in alphabetical order for quick reference. Several 
subroutines have been included so that you can approximate 
TRS-80 or PET commands that do not directly relate to AP- 
PLE IT commands. 

Graphics will be discussed from the standpoint of what 
can be done and what cannot be done, but for the most part, 
your imagination will be the best guide in trying to convert 
TRS-80 and PET graphics to APPLE JI since APPLE II will 
allow you much more variety. 

The format for this chapter is as follows: 


TRS-80/PET APPLE Il 


: Comments 
Function Function 


Every command with a direct relationship to APPLE II 
is included. Some APPLE II commands are not included, how- 
ever, since nothing in a TRS-80 or PET listing will relate to 
them (for example, CALL, POP, and the like). Subroutines and 
other conversion indicators that allow the APPLE II to per- 
form a TRS-80 or PET function are included in the comments 
section of each command. 

Sample program conversions appear in Appendix B. 
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3.1 Conversion of TRS-80 into APPLE I 


Commands 


TRS-80 
ABS(x) 
AND 
ASC(string) 
ATN(x) 
AUTO 


BREAK 


CDBL 


CHR$ 
CINT 
CLEAR 
CLEAR nn 


CLOAD 
CLOAD“X” 
CLOAD?"X” 


CLS 
CONT 
COS(x) 
CSAVE 
CSAVE"X” 
CSNG 


APPLE Ii 
ABS (x) 
AND 
ASC(string) 
ATN(x) 
AUTO 


CONTROL C 


None 


CHR$ 
None 
CLEAR 


None 


LOAD 
None 


None 


HOME 
CONT 
COS(x) 
SAVE 
None 


None 


Comments 
Same function 
Same function 
Same function 
Same function 
AUTO line numbering, available only 
in Integer BASIC 
Same function 
Returns double-precision 
representation of a number 
Same function 
Returns integer of number 
Same function 


Reserves string space; not necessary 
in APPLE Il 


Same function 
APPLE II does not load by label 


Used to verify transfer of a program; 
not available in APPLE 1! 


Same function 
Same function 
Same function 
Same function 


APPLE II does not save by label 
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Commands (continued) 


TRS-80 


DEFSNG 
DELETE 
DIM 


END 
ERL 


ERR/2+ 1 
EXP(x) 


FIX(x) 


APPLE il 


None 


DATA 


END 


None 


PEEK(222) 


EXP(x) 


INT(x) 


Commenis 


Defines variable as a double-precision 
number 


Same function 
Defines a variable as double precision 


Defines a variable as an integer (use 
% after a variable to approximate 
this function) 


Defines a variable as single precision 
Same function (deletes program lines) 


Same function 


Same function (scientific notation) 
EDIT mode not available in APPLE Il 


ELSE is used in IF... THEN 
statements. Use separate IF 
THEN statements when this 
command is encountered. For 
example: 


10 IFA=BTHENGOTO1000ELSE200 
(TRS-80) 

10 IFA=BTHENGOTO1000 

15 IFA<> BTHENGOTO200 


Same function 


Returns line number of error; use 
X=PEEK(218)+PEEK(219)*256 to 
return line number of error 


Returns error code of error 


Same function 


Same function 
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FOR 
FRE(string) 


GOSUB 


GOTO 
IF 


INKEYS$ 


INP (port) 


INPUT 
INPUT # 


INT 
LEFT$ 


LEN(string) 
LET 

LIST 

LLIST 


FOR 
FRE(0) 


GOSUB 


GOTO 
IF 


GET(string) 


IN# x 


INPUT 
RECALL x 


INT 
LEFT$ 


LEN(string) 
LET 
LIST 


None 


Same function 


Same function. Returns a negative 
number on a 48K machine; 
otherwise returns the amount of 
memory left available for 
programming 


Same function 


Same function 

same function 

Sarme function except that GET(string) 
stops program flow until key is 
pressed. INKEY$ does not wait for 


key input. If the very same function 
is desired, use the following: 


X=PEEK(— 16384); IF X>127 THEN 
GOTO xxxx 
(If X>127, it means that a key was 
pressed) 


Inputs data from port [APPLE II is 
limited to 8 through 7 (@ is 
keyboard) ] 


Same function 


Same function when used with 
variables; use subroutine 3 in 
Appendix A for recalling strings 


Same function 
Same function 


Same function 
Same function 
Same function 


Causes LIST to be output to printer; 
use PR#1 (if printer card is in 
“— slot 1} and then LIST ~~” 
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Commanas (continued) 


TRS-80 APPLE Il Comments 


LOG(x) LOG(x) Same function a 

LPRINT None Causes display to be output to printer; 
use PR#1 to transfer printing to 
printer 

MEM FRE(0) Returns amount of free memory 

MIDS MIDS Same function 

NEW NEW Same function 

NEXT NEXT Same function 

NOT NOT Same function 

ON ERROR ON ERR Same function 

GOTO GOTO 


ON..GOSUB ON..GOSUB Same function 
ON..GOTO ON..GOTO — Same function 
OR OR Same function 


OUT (port) PR# x Although PR# x is similar to OUT, alf 
output is transferred to slot x, not 
just a specific byte as with OUT (x 
must be a number from 8 to 7); if 
no device is connected, computer 
will “hang” 


PEEK (addr) PEEK(addr) Same function, but addresses are 
different (see list of common 
PEEKs) 


POINT(x,y) None No direct function relates to this 
command; its purpose is to check 
whether a point on the screen is 
“ON.” It can be approximated by 
using the SCRN(x,y) function. The 
SCRN(x,y) function returns a color 
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POKE(addr,x) 


POS(x) 
PRINT 
PRINT @ 


PRINT#-1 


PRINT USING 


RANDOM 


READ 
REM 


RESET(x,y) 


RESTORE 
RESUME 
RETURN 
RIGHTS 
RND(x) 


code of the spot on the screen to 
allow you to evaluate the color code 
and determine whether the graphics 
block is on. 


POKE(addr,x) Same function, but addresses are 


POS(x) 
PRINT 


None 


STORE A 


None 


None 


READ 
REM 
PLOT(x,y) 


RESTORE 
RESUME 
RETURN 
RIGHTS 
RND(x) 


RUN 


different 
Same function 
Same function 


Causes output to be placed on the 
screen at a specific point (see 
Chart 1 in Appendix C) 


See Subroutine 2 in Appendix A 

See Subroutine 1 in Appendix A 

Reseeds random numbers; not 
necessary with APPLE Il 

Same function 

Same function 


To reset a block of graphics in both 
HI-RES and LO-RES, simply PLOT 
the same coordinates in the 
background color 


Same function 
Same function 
Same function 
Same function 


RND(0) is the same, but if the RND 
number is greater than 1, use 
Subroutine 5 in Appendix A 


Same function 


Same function except that field limits 
are: X=39, Y=47 (instead of 
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Commands (continued) 
TRS-80 APPLE I! Comments 


X=127, Y=45). “GR” or “HGR” 
must be used before a PLOT. 


SGWN(x) SGWN(x) Same function 

SIN(x) SIN(x) Same function 

SQR(x) SQR(x) Same function 

STOP STOP Same function 

STR$ STR$ Same function 

STRINGS None See Subroutine 4 

SYSTEM None This command allows access to 


machine-language programs; use 
CALL.-151 or press the RESET key 


TAB TAB Same function 
TAN(x) TAN(x) Same function 
THEN THEN Same function 
TROFF NOTRACE Same function 
TRON TRACE “Same function 
USR(x) USR(x) Same function (address for the USR 


function on the TRS-80 is POKED 
into addresses 16526 and 16527). 
Only one USR(x) call is allowed in 
TRS-80 Level ff. 


VAL(string) VAL(string) Same function 


VARPTR None Returns decimal location of a variable 
stored in memory 
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Special Characters and Abbreviations 


TRS-80 APPLE Il Comments 
ENTER RETURN Same function 
< — Backspace and delete last character 


Same function (statement delimiter) 


CLEAR CLEAR Resets all variables and strings to 
NULL; arrays have to be 
redimensioned after CLEAR 


SHIFT@ CONTROL S __ Interrupts program or listing; pressing 
any key will cause program or 
listing to resume (CONTROL § is 
available only with the AUTOSTART 
ROM; other models use CONTROL 
C) 


BREAK CONTROL C_ Stops program or listing and returns to 
BASIC; type CONT to continue 


RESET RESET Causes program execution to cease 
and places computer in MONITOR 
mode (CONTROL C will return you 


to BASIC) 

? ? Same function (abbreviation for 
PRINT) 

Type Declaration Characters 

Character Type Example 

$ String A$, AF$ 

% Integer A%, AF% 

E Exponential 1.23E+10 
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Arithmetic Operators 


+ Add — Subtract * Multiply 
/ Divide /\  Exponentiate (2/3 = 8) 


String Operators 


+ Concatenate (string together) 


Relational Operators 


Symbol Meaning in Numerics Meaning in Strings 
< Is less than Precedes 

> Is greater than Follows 

= Is equal to Equals 

<=or=< Is less than or equal Precedes or equals 
>= or => Is greater than or equal Follows or equals 
<>or>< Does not equal Does not equal 


Order of Operation 


/\ Exponentiation 

*,/ Multiplication, division 
+,-— Addition, subtraction 
AND 

OR 
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3.2 Translation of PET into APPLE Il 


commands 


PET 
ABS(x) 
AND 


ASC(string) 


CHR$(x) 
CLOSE 


CLR 
CMD 


CONT 
COS(x) 
DATA 
DEF FN 
DIM 


END 


EXP(X) 


FOR 
FRE(x) 


APPLE Il 
ABS(x) 
AND 


ASC (string) 


CHR&§(x) 


None 


CLEAR 


None 
CONT 
COS(x) 
DATA 
DEF FN 
DIM 


END 


EXP(X) 


FOR 
FRE(x) 


Comments 
Same function 
Same function 


Same function 


Same function 


Used to close a logical file but not 
needed when reading data from 
APPLE Il tapes 


Same function 


Similar to APPLE Il IN#¥; reads IEEE 
port for input 


Same function 


Same function 


Same function 


Same function (string functions cannot 
be defined) 


Same function 
Same function (optional in APPLE Il, 
mandatory in INTEGER) 


Same function 


Same function 


Same function. Returns a negative 
number on a 48k machine; 
otherwise returns the amount of 
memory left available for 

“programming OO 
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mi SS SS SSS SSGSSSSASRSSSSGSSSSGSNS SRDS? 9g Seasa ae 


PET 


GET A$ 


GOSUB n 
GOTO n 


IF 
INPUT 
INPUT # 


INT(x) 


LEFT$ 
LEN(string) 
LET 

LIST 
LOAD 


LOAD “file 
name’”’ 


GET AS 


GOSUB n 
GOTO n 


IF 
INPUT 
RECALL n 


INT (x) 


LEFTS 
LEN(string) 
LET 

LIST 

LOAD 


None 


Commenis 


Used to read a character from data 
tape, but not needed with APPLE II 


Same function, but APPLE Il 
recommends using the keyboard 
strobe [X=PEEK(-16384)] to avoid 
errors 


Same function except that APPLE II 
program execution halts until a key 
is pressed and PET program 
execution continues unless a key is 
pressed. 


Same function 


Same function 


Same function 
Same function 


Same function except that conversion 
of data stored as strings must be 
handled in accordance with 
Subroutine 3 in Appendix A 


Same function 


Same function 
Same function 
Same function (optional) 
Same function 


Same function (loads tape when file 
name is not present) 


APPLE Il does not store programs by 
file name except on disk 
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MID$ 


NEW 
NEXT 


ON x GOSUB 


ON x GOTO 
OPEN 


OR 
PEEK(addr) 


POKE(addr) 


POS(x) 
PRINT 
PRINT # 


READ 
REM 
RESTORE 
RETURN 
RIGHTS 
RND(x) 
RUN 
SAVE 


SAVE ‘file 
name” 


MID$ 


NEW 
NEXT 


ON x GOSUB 


ON x GOTO 


None 


OR 
PEEK(addr) 


POKE(addr) 


POS(x) 
PRINT 
STORE A 


READ 
REM 
RESTORE 
RETURN 
RIGHTS 
RND(x) 
RUN 
SAVE 


None 


Same function 


Same function 


Same function 


Same function 
Same function 


Opens logical file, but not necessary 
in APPLE II 


Same function 


Same function, but addresses are 
different 


Same function, but addresses are 
different 


Same function 
Same function 


Same function (stores data on tape). 
String storage must be handled in 
accordance with Subroutine 2 in 
Appendix A 


Same function 
Same function 
Same function 
Same function 
Same function 
Same function 
Same function 


Same function (saves files on tape 
when file name is not used) 


APPLE Il does not save programs by 
file name except on disk™ 
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Commands (continued) 


LS 7 YS SSS SRS SGU SG: 


SGN(x) 
SIN(x) 
SPC(x) 
SQR(x) 
STOP 


STR$ 
SYS(addr) 


TAB(x) 
TAN(x) 
THEN 
TI$ 


USR(x) 


VAL(string) 


VERIFY “file 


name” 


WAIT 


APPLE Il 


Comments 


SS Pa Fa SY SS eS SSAA? TD wea sestseasisS- SS Cate 


SIN(x) 
SPC(x) 
SQR(x) 
STOP 


STR$ 
CALL addr 


TAB(x) 
TAN(x) 
THEN 


None 


USR(x) 


VAL(string) 


None 


WAIT 


Same function 
Same function 
Same function 
Same function 


Same function (causes bell to sound 
in APPLE HI) 


Same function 


Generally the same function, but 
addresses will differ. (This 
command branches from a BASIC 
program to a machine-language 
routine.) 


Same function 
Same function 
Same function 


Returns time recorded on PET internal 
clock; sometimes used to time input 
for program functions 


Same function (note that addresses 
are not the same) 


Same function 


Used to verify program dump on tape 
but not available or necessary on 
APPLE Il 


Same function, but since timing in the 
PET and APPLE II is different, 
make note of the approximate 
timing desired for the program and 
adjust accordingly 
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Other Indications 


PET APPLE Il Comments 

% % Designates a variable as an integer 

7 PI=3.1428 The value of pi must be substituted for 
the symbol 7 

PET Graphics 


The PET has a built-in character ROM for various 
graphic characters. In order to compensate for this feature, you 
must create your own graphic version of the symbols provided 
on the PET. Chart 4 in Appendix C gives the character set and 
the ASCII equivalents. If you encounter POKE graphics, refer 
to this character set to determine what is intended in the pro- 
gral. 
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Cursor and Control Characters 


Hach cursor and control character is preceded by a 
PRINT command or is used as a CHRS. The cursor and control 
characters, their functions, and the corresponding ASCII char- 
acters and APPLE II commands are as follows: 


Character Function ASGIi Value APPLE li Command 


Clear screen and home 
cursor 
Cursor right 
Cursor up 
Cursor down 
Home cursor 
Cursor left 
Reverse field 
Reset normal field 
Insert character 
Delete character 
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147 


HOME 


PRINT CHR$(9) 

Not available 

Not available 

CALL —936 or HOME 


INVERSE 
NORMAL 
Not used 
Not used 


Chapter 4 


CONVERSION OF 
TRS-80 ANDAPPLE II 


PROGRAMS INTO PET 


This chapter is designed for easy conversion of TRS-80 
and APPLE II programs into PET. The commands are im al- 
phabetical order for quick reference. Moreover, several sub- 
routines are included in the comments column to allow you to 
approximate PET commands that do not directly relate to 
APPLE IT commands. 

Graphics will be discussed from the standpoint of what 
can be done and what cannot be done, but for the most part 
your imagination will be the best guide in trying to convert 
TRS-80 and APPLE II graphics to PET. 

The format for this chapter is as follows: 


TRS-80/APPLE II 


. PET Function Comments 
Function 


Every command that has a direct relationship to PET 
is Included. Some PET commands have been omitted if they do 
not relate to the functions of either the TRS-80 or APPLE II. 
Subroutines and other conversion indicators that allow the 
PET to perform a TRS-80 or APPLE II function are mentioned 
in the comments section at the side of each command. 


4.1 Conversion of TRS-80 into PET 


This section is designed for easy conversion of TRS-80 
programs into PET. In general, the commands are in the order 
they are found in the TRS-80 Level II manual. Several sub- 
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routines are included to allow you to approximate TRS-80 
commands that do not directly relate to PET commands. 
Graphics will be discussed from the standpoint of what 
can be done and what can’t be done, but, for the most part, 
your own imagination will serve you best in trying to convert 
the TRS-80 graphics. 
The format for this guide is as follows: 


TRS-80 Function PET Function Comments 


Each TRS-80 command that has a direct relationship 
to PET is included. Subroutines and other conversion indica- 
tors that allow the PET to perform a TRS-80 function are 
listed in the comments section at the side of each command. 

Sample programs with conversions are included in Ap- 
pendix B. 

Since timing loops work faster for the PET by a factor 
of about two, you will need to change a statement such as FOR 
X=1 TO 1000:NEXT, for example, to FOR X=1 to 2000 NEXT 
to maintain approximately the same timing. 


Commands 

TRS-80 PET Comments 

AUTO None 

CLEAR CLR Sets numeric variables to zero, strings 
to NULL, and arrays to zero; arrays 
must be redimensioned. 

CLEAR n None PET reserves space for strings by 
itself 

CONT CONT Continue after STOP 

DELETE mm- None Deletes line mm to nn 

nn 
EDIT None 


LIST mm-nn LIST mm-nn LIST linenum to linenum 
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LIST nn 
LIST nn- 
LIST 


NEW 


RUN 
RUNnn 


TRON 
TROFF 


SYSTEM 


CLOAD 
CLOAD 


“name” 


CLOAD? 


“name” 


CSAVE 


CSAVE 


“name” 


LIST nn 
LIST nn- 
LIST 


NEW 


RUN 
RUNnn 


None 


None 


SYS 


LOAD 


LOAD “name” 


VERIFY 
“name” 


SAVE 


SAVE “name” 


LIST linenum 
LIST from linenum to end of program 


LIST entire program 


Deletes entire program and resets all 
variables 


Executes program from beginning 


RUN program from line nn 


Turns on TRACE mode 

Turns off TRACE mode 

Used to load machine-language 
programs (use MONITOR 
commands) 

Loads programs from cassette 


LOAD (name) program 


VERIFY (name) program 


SAVE program on cassette 


SAVE (name) program 
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input/Cutput 


TRS-80 PET 
PRINT PRINT 
PRINT @ None 


PRINT TAB ~—— PRINT TAB 
(n) (n) 


PRINT USING None 


INPUT INPUT 
DATA DATA 
READ READ 


RESTORE RESTORE 
PRINT #-1 PRINT # 1 
INPUT #-1 INPUT # 1 


Program Statements 


TRS-80 PET 
DEFINT None 
DEFSNG None 
DEFDBL None 
DEFSTR None 
DIM DIM 


Comments 
Same function 
See Chart 1 in Appendix C 


Same function except that the 
maximum TAB field is 39 instead of 
63 


See Subroutine 1 in Appendix A 
Same function 

Same function 

Same function 

Same function 

Prints data on tape 


Recalls data previously stored on tape 


Comments 


Each variable to be used as an 
integer must be labeled with the % 
sign (that is, a%, c%) 


Designates a number as single- 
precision 


Designates a number as double- 
precision 


Defines variable to be treated as a 
string variable 


Same function, but variables may be 
used for DIM statements rather than 
constants: for example, 10 INPUT 
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“HOW MANY DIMENSIONS”; X 
and 20 DIM A(X), B(X) 


LET LET Same function (optional) 

END END Same function 

STOP STOP Same function; STOPs execution in 
program and prints BREAK IN 
linenum 

GOTO nn GOTO nn Causes program to branch to linenum 


nn; can also be used in the 
IMMEDIATE mode to cause the 
program to begin at a specified 
point without resetting all variables 
(used instead of RUN) 


GOSUB nn GOSUB nn Same function 


RETURN RETURN Same function 
On n GOTO ON n GOTO — Same function 
nn nn 
ON n GOSUB_ Same function 
nn 


FOR name =expTOexpSTEPn Same function 

NEXT name NEXTname Same function (name is optional) 
ERROR code None 

On ERROR None 


GOTO 
RESUME None 
REM REM Same function 
IF true/false IFtrue/false Same function 
THEN THEN Same function (optional in most 
situations) 
ELSE None Another “IF” statement must be used 


in PET 


nn ie SSS SS 


TRS-80 and APPLE Il into PET 55 


String Input/Output 


TRS-80 PET Comments 
ASC (string) ASC (string) Same function 
CHR$(exp) CHR$(exp) Same function 


FRE(siring) rRE(exp) Same funciion [FRE(exp) performs 
housecleaning; see PET manual] 
INKEY$ GETexp$ Same function 


LEFTS(string,n) LEFT$(string,n) Same function 
LEN(string) LEN(string) Same function 
MiD§(string,p,n) MIDS&(string,p,n}) Same function 
RIGHTS$(string,n) RIGHT$(string,n)Same function 
STR$(exp) STR$(exp) Same function 


STRINGS None See Subroutine 4 in Appendix A 
(n,char or 
number) 
VAL(string) Same function 


Arithmetic Functions 


TRS-80 PET Comments 
ABS(x) - ABS(x) Same function 

ATN(x) ATN(x) Same function 

CDBL(x) None 

CINT (x) None 

COS(x) COS(x) Same function 

CSNG(x) None 

EXP(x) EXP(x) Same function 
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FIX(x) 


INT (x) 
LOG(x) 


RANDOM 


RND@) 
RND(x) 
SGN(x) 
SIN(x) 

TAN(x) 


INT(x) 


INT(x) 
LOG(x) 
None 
RND@®) 
None 
SGN(x) 
SIN(x) 
TAN(x) 


Special Features 


TRS-80 
SET(x,y) 


RESET(x,y) 


CLS 


POINT(x,y) 


ERL 
ERR/2+1 
INP(port) 


MEM 


OUT port, 


value 


PET 
None 


None 


PRINT “{J” 


None 
None 
None 


INPUT # 


FRE(@) 
PR# x 


Same function except that if x is 
negative, FIX(x)=INT(x)+ 1 


Same function 


Same function 


Same function 
See Subroutine 5 in Appendix A 
Same function 
Same function 


Same function 


Comments 


Clears screen and homes cursor 


IN# x is limited to numbers from @ to 
30 (@ is keyboard 


Same function 


PR# x is similar to OUT except that 
all output is transferred to slot x, not 
just a specific byte (x must be a 
number from @ to 30). PR# is 
output to screen. If no device is 

connected to the specified slot, the 


computer will “hang.” 
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Special Features (continued) 


PEEK(addr) PEEK(addr) Same function, but the addresses are 


different 

POKE(addr) POKE(addr) Same function, but the addresses are 
different 

POS(x) POS() Same function; returns the current 


position of the cursor (number 
within the parentheses is a dummy 


number) 
USR(x) USR(x) Same function 
VARPTR (var- None Returns location in memory where 
iable name) (variable name) is stored 


Special Characters and Abbreviations 


TRS-80 PET Comments 

ENTER RETURN Same function 

_ INST Backspaces and deletes last character 
DEL Same function (statement delimiter) 

CLEAR CLR Resets all variables and strings to 


NULL; arrays have to be 
redimensioned after CLEAR 


SHIFT@ Stops program execution, but requires 
| STOP __ CONT to continue 
BREAK Stops program execution, but requires 
STOP _| CONT to continue 
RESET None 
? ? Abbreviation for PRINT 
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Type Declaration Characters 


Character Type Examples 
$ String AG, AFS 
% Integer A%, AF% 
E Exponential 1.23E+0 
Arithmetic Operators 

+ Add — Subtract + Multiply 
/ Divide * Exponentiate (273 = 8) 


String Operators 


+ Concatenate (string together) 


Relational Operators 


Symbol Meaning in Numerics Meaning in Strings 
> Is less than Precedes 
< Is greater than Follows 
= Is equal to Equals 
>=or=> Is less than or equal Precedes or equals 
<=or=< Is greater than or equal Follows or equals 
<>or>< Does not equal Does not equal 
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Order of Operation 


() Parentheses 

t Exponentiation 

*,/ Multiplication, division 
+,- Addition, subtraction 
AND 

OR 


4.2 Conversion of APPLE Il into PET 


This section is designed for easy conversion of APPLE 
II programs into PET. In general, the commands are in the 
order they are found in the APPLE II manual. Several sub- 
routines are included in the comments column to allow you to 
approximate PET commands that do not directly relate to 
APPLE IT commands. 

Graphics will be discussed from the standpoint of what 
can be done and what can’t be done, but for the most part 
your imagination will serve you best in trying to convert the 
PET graphics, since APPLE II graphics allow much more va- 
riety. 

The format for this guide is as follows: 


APPLE IT Function PET Funetion Comments 


Each APPLE II command that has a direct relation- 
ship to PET is included. Subroutines and other conversion in- 
dicators to allow the PET to perform an APPLE II function are 
listed in the comments section at the side of each command. 

Sample programs with conversions are included in Ap- 
pendix B. 

Timing loops work faster for the APPLE II by a factor 
of about two. You will need to change a statement such as 
FOR X=1 TO 2000:NEXT, for example, to FOR X=1 TO 
1000:NEXT to maintain approximately the same timing. 
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Commands 


APPLE Il 
ABS(x) 
Arrow keys 
ASC(string) 
ATN 


CALL 
CHR$(x) 
CLEAR 


COLOR 
CONT 
COS 
ctrl C 


ctrl X 
DATA 


DEF FN(x) 


DEL 
DIM 
DRAW 


END 
EXP 


PET 

ABS (x) 
None 
ASC(string) 
ATN 


None 
CHRS(x) 
CLR 


None 
CONT 
COS 


RUN 
STOP 


None 


DATA 
DEF FN(x) 


None 
DIM 


None 


END 
EXP 


None 


Cormmenits 

Same function 

Use cursor control keys 
Same function 


Same function 


See common calls at end of section 
Same function 


Clears all variables, arrays, and 
strings to zero 


No color is available on PET 
Same function 
Same function 


Stops program execution but requires 
CONT to continue 


Not available in PET 


Same function 


Same function (string furrctions cannot 
be defined) 


Deletes lines from program 
Same function 


Not necessary in PET 


Same function 


Same function 


Blinks words on screen; not 
applicable in PET 
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Cominands (continued) 


APPLE Il 


FOR... 
TO... 


STEP 


FRE(x) 


GET 
GOSUB 
GOTO 
GR 


HCOLOR 


HGR 


HGRe 


HIMEM: 


PET 


FOR. .. 
TO... 
STEP 
FRE(x) 
GET 
GOSUB 
GOTO 


None 


None 
None 


None 


None 


Comments 


Same function 


Same function 


Same function 

Same function 

Same function 

Sets graphics mode in APPLE II; not 
necessary in PET 

Sets color in APPLE II graphics; not 
necessary in PET 


Sets high-resolution graphics mode; 
not necessary in PET 


Sets high-resolution graphics; not 
necessary in PET 


Sets a point in memory above which 
machine operation will not interfere; 
not necessary in PET 


Draws a horizontal line between 
points x and y; not available in PET 


Same function 


Plots a point (x,y) on screen. Use 
POKE x (32768 to 33792) 


Sets horizontal position of cursor on a 
specific line; not available in PET 


Same function 
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IF... 

THEN 
INPUT 
INT(x) 
INVERSE 
INF 


MIDS 
NEW 
NEXT 
NORMAL 
NOTRACE 


ON... 
GOSUB 


ON. .. 
GOTO 


ONERR 
GOTO 


IF... 
THEN 

INPUT 

INT(x) 


PRINT “Gy” 


INPUT # 


MID$ 
NEW 
NEXT 
PRINT “3” 


None 


ON. . 
GOSUB 


ON... 
GOTO 


None 


Same function 


Same function 
Same function 
Same function 


Reads DATA from I/O device; device 
numbers will differ 


Same function 

Backspace over last character 
Same function 

Same function (optional) 
Same function 

Same function 

Same function 

Same function 


Sets a point in memory below which 
machine operation will not interfere; 
not necessary in PET 


Same function 
Same function 
Same function 
Same function 


Turns trace off; not available in PET 


Same function 


Same function 


On encountering an error program, 
branches to specific line; not 


qe pg TI psc sss hifi SPS 
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Commands (continued) 


eS SS SS ST SS SS“ SS 7 spss hs ssi es SS 


APPLE I! 


PDL 


PEEK(x) 


PLOT 


POKE(addr,x) 


POP 


POS(X) 
PRINT 
PR# 


READ 
RECALL 


REM 
REPEAT 
REPEAT 
RESTORE 
RESUME 


RETURN 
RIGHTS 


—> 


PET 


None 


POKE(addr,x) 


None 


POS(X) 
PRINT 
PRINT# 


READ 


GET# or 
INPUT# 


REM 
None 
None 
RESTORE 


None 


RETURN 
RIGHTS 


Ey 


Comments 


Reads paddle functions on APPLE Il; 
not available in PET 


Same function, but addresses will 
differ 


See HPLOT 


Same function, but POKE addresses 
will differ 


Retrieves return addresses from 
“stack” of returns; not necessary in 
PET 


Same function 

Same function 

Writes data to 1/O device; device 
numbers will differ 

Same function 


Same function 


Same function 


Same function 


After “ONERR GOTO,” program 
function continues; not available in 
PET 


Same function 
Same function 


Same function 
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ROT 


RND 
RUN 


SAVE 
SCALE 
SCRN (x,y) 


SGN 
SHLOAD 


SIN 
SPC 
SPEED 


None 


RND 
RUN 


SAVE 
None 


None 


SGN 


None 


SIN 
SPC 


None 


SQR 


STEP 
STOP 


PRINT # 
STR$ 


TAB 
TAN 


None 


Rotates a shape on machine; not 
available in PET 


Same function 


Same function 


Same function 
Sets size of shape on screen 


Returns color code of coordinates x,y; 
used to test point on screen; 
correlates to PEEK (ADDR) in PET 


Same function 


Loads shape from tape stored data; 
not available in PET 


Same function 
Same function 


Adjust rate at which characters are 
displayed on the screen; not 
available in PET 


Same function 


Same function 
Same function 


Same function 


Same function 


Same function 
Same function 


Returns program to text mode and 
turns off graphics; not 
necessary in PET 


Turns trace on 
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Commands (continued) 
APPLE i PET 
VAL (string) VAL(string) 


VLIN None 
VTIAB(X) None 
WAIT WAIT 
XDRAW None 


Comments 


Same function 


Draws vertical line; not available in 
PET 


Moves cursor X vertical spaces (uses 
cursor down characters with PET) 


Same function 


Erases shapes previously designed by 
a draw command or changes colors 
of a shape; not available in PET 


Common APPLE Il CALLS or POKES and PET Functions 


Comments 


APPLE Il 


PEEK (addr) 


POKE (addr) 


POKE 32,X) 
POKE 33,X) 
POKE 34,X) 
POKE 35,X) 


POKE — 16289 through 
POKE — 16296 


POKE — 16297 through 
POKE — 16304 
POKE — 16368,0 


X= PEEK (— 16384) 


CALL —936 


Same function as PEEK (addr) in PET, 


but the addresses are different 


Same function as POKE (addr) in 
PET, but the addresses are different 


These four commands relate to setting 
text window; not necessary in PET 


Commands dealing with game control; 
not necessary in PET 


Commands related to graphics and 
text screens; not necessary in PET 


Resets keyboard stroke; not 
necessary in PET 


Reads keyboard; PET uses GET A for 
this function 


Clears all characters on screen; same 
as PRINT “J” on PET 
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Appendix A: 
SUBROUTINES 


SUBROUTINE No. 1 
(PRINT USING Function) 


The PRINT USING command is used to format output 
in a specific manner. The following subroutine allows you to 
indicate what output you want. 


5000 A$=STR$(N):FORX=1TOLEN(A$) 
5010 IFMIDS$(A$,X,1)=".” THENGOTOS5040 

5020 NEXTX:AA$=A$ 

5030 RETURN 

5040 A$=A$+ 000000000000" :AA$=LEFT$(A$,X+Z) 
5050 RETURN 


Sample Program 


10 PRINT:INPUT“INPUT NUMBER OF DECIMAL PLACES";Z 
20 INPUT“ENTER NUMBER TO BE FORMATTED";N 

30 GOSUB5000 

40 PRINT AAS 

50 GOTO10 


The program must have a predetermined value for the 
number of decimal places, Z, before the subroutine is entered. 


SUBROUTINE No. 2 
(STRING STORAGE) 


To save strings, you must first convert them to vari- 
ables. The following subroutine will do this for you: 


10 DIM R(258) 
20. R@)=N:REM**NIS. THE NUMBER OF STRINGSTOBE. 
STORED 
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30 FORX =1 TON 

40 Ri1) =X 

50 A(2) = LEN(A$(X)) :REM ** AS IS STRING TO BE SAVED 
60 FOR Y = 3 TO LEN(AS$(X))+2 

70 R(Y) = ASC(MID$(A$(X),Y-2,1)) 

80 NEXT: STORE R : NEXT 


Make sure that you DiMension an array iarge enough 
to accommodate the string being saved (in the program above, 
the array is set to 258, which is the maximum string size 
allowed). 


SUBROUTINE No. 3 
(STRING RECALL AND CONVERT) 


To recall strings that have been previously stored as 
variables, use the following subroutine: 


90 PRINT‘PRESS RETURN TO RECALL DATA ":GETZS 
100 DIM S(260) 
110 RECALLS 
120 FOR Y = 3TO S(2)+2 
130 Y$ = CHRS(S(Y)):A$(1)=A$(1)+Y$ 
140 NEXT 
150 FORX =2TOS@) 
160 RECALLS 
170 FORY = 3 TO S(2)+2 
180 Y$ = CHR$(S(Y)):A$(X)=A$(X)+Y$ 
190 NEXT : NEXT 


Make sure that you DIMension an array to carry A§$(x). 


SUBROUTINE No. 4 
(STRING$ Function) 


The STRING$ function allows you to print a number 
of characters or symbols in a row [that is, STRING$(“*” 89) 
returns a string of 80 asterisks]. To simulate this function, use 
the following: 
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10 INPUT X$ REM *** X$=CHARACTER OR SYMBOL TO BE 
PRINTED 

20 INPUT X REM *** X =NUMBER OF TIMES TO REPEAT THE 
CHARACTER 

30 FOR Y=1TOX 

40 PRINT X$; 

50 NEXT Y 


or: 
10 X$="*" :X=30:FORTY=1TOX:PRINTX$;:NEXT 


This program line exactly simulates the STRING$ 
function. 


SUBROUTINE No. 5 
(RANDOM Function) 


The RND(@ function returns a number from .000000 
to .999999 in both languages. The RN D(x) function in the TRS- 
80, however, returns a random number from 0 to x. To simu- 
late this function in APPLESOFT II, use the following: 

10000 Y = INT(RND(1)*X+.5) 


where: 


X = random number limit 
Y = random number 


Appendix A: Subroutines 
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70 


Appendix B: 


TRS-80 Program 
CLS-PRINT@Q@," ”; 


PRINT" TRS-80 SAMPLE” 
A$="CENTER” 
X=544—LEN(A$)/2) 
PRINT@X,A$ 

FORL = 1TO800:NEXT 


FORX=1T0127 

Y=25 

SET(X,Y) 

NEXT 

FORX=1T01000:NEXT 

PRINT“PRESS ENTER TO 
CONT” 

X$=INKEY$:IFX$=" ” 
GOTO120 

GOTO10 


TRS-80 Program 


CLS 

FORX=1T0127 

Y=25 

SET(X,Y):NEXT 

FOR L=1TO1000:NEXT 
FOR X=1T0127 
RESET(X,Y):NEXT 
GOTO 80 


100 
110 


120 


130 


APPLE Ii Conversion 


HOME:HTAB1:VTAB1: 
PRINT" ”: 

PRINT“APPLE Ii SAMPLE” 

A$="CENTER” 

X=20—~-(LEN(A$)/2) 

VTAB12:HTABX:PRINTAS$ 

FORL=1T02400:NEXT 

GR:COLOR=1 

FORX=0TO39 

Y=12 

PLOT X,Y 

NEXT 

FORX= 1TO3000:NEXT 

PRINT“PRESS RETURN 
TO CONT” 

GETX$:IFX$=" ” 
GOTO120 

TEXT:GOTO10 


APPLE Ii Conversion 


HOME:GR:COLOR=1 
FORX=8TO39 

Y=12 

PLOT X,Y:NEXT 

FOR L=1TO3000:NEXT 
FOR X=9TO39 
COLOR=9:PLOT X,Y:NEXT 
GOTO 80 
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APPLE Ii Program 


HOME: HTAB 1:VTAB 
1:PRINT" ”: 
PRINT “APPLESOFT II 
SAMPLE” 
A$="CENTER” 
X=20—(LEN(A$)/2) 
VTAB 6:HTABX:PRINT A$ 
FORL=2T01400:NEXT 
FORX=9T039 
2TAB(x);"*" NEXT 
FORX=1T01000 
PRINT“PRESS RETURN 
TO CONT” 
GETX$:IFX$=" "GOTO90 
GOTO10 


TRS-80 Program 


CLS:PRINT@@," ”; 


PRINT“ TRS-80SAMPLE” 
A$="CENTER” 

X =544—(LEN(A$)/2) 
PRINT @X,A$ 


FORX=1TO63 

?TAB(x);°"";:NEXT 

FORX=1TO1000:NEXT 

PRINT“PRESS ENTER TO 
CONT” 

X$=INKEYS:IFX$=" ” 
GOTOS0 

GOTO10 


10 


20 


30 
40 
50 
92 
60 
65 
70 
80 


90 
100 


10 
20 
30 
40 
90 


60 
65 
70 
80 


90 


100 


PET Conversion 


2° (]":PRINT"”: 


PRINT“PET SAMPLE” 


A$="“CENTER" 
X=20-—-(LEN(A$)/2) 
?* falelerelerey”’; TAB(x);AS 
FORL=1T01600:NEXT 
FORX=9TO39 
?TAB(x);°*";: NEXT 
FORX=1T02000 
PRINT“PRESS RETURN 
TO CONT” 
GETX$:IFX$=" "GOTOS9O 
GOTO10 


PET Conversion 


2") ":PRINT" ”: 

PRINT“PET SAMPLE” 

A$="CENTER” 

X= 20-(LEN(A$)/2) 

vag .Q0GQ0. 0000005 
TAB(X):A$ 

FORX=0TO39 

?TAB(X);"*";:NEXT 

FORX=1TO2000:NEXT 

PRINT“PRESS RETURN 
TO CONT” 

GET X$:IFX$=" "GOTO9O 

GOTO10 
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CHART 1 
Screen Coordinate Conversion from TRS-80 to APPLE Il 


Left Margin Center of Screen 
PRINT@ HTAB VTAB PRINT@ HTAB VTAB 

y 1 1 32 20 1 
64 1 2 96 20 2 
128 1 3 160 20 3 
192 1 4 224 20 4 
256 1 5 288 20 5 
320 1 6 352 20 6 
384 1 7 416 20 7 
448 1 8 480 20 8 
512 1 9g 544 20 9 
576 1 10 608 20 10 
640 1 11 672 20 11 
704 1 12 736 20 12 
768 1 13 800 20 13 
832 1 14 864 20 14 
896 1 15 928 20 15 
960 1 16 992 20 16 


1024 (Beyond screen limits) 
PRINT@ 544 HTAB20:VTAB12 


HTAB and VTAB function with variables for numbers; for 
example: 
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10 VTAB @:X=LEN(A$)/2:Y=20--X 
20 HTAB Y 
30 PRINT A$ 


The APPLE II has fewer characters allowed (40) on each 
line, but has nine extra vertical lines to accommodate printing 
(VTAB 1—25). 
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CHART 2 
Screen Coordinaie Conversion from TRS-8S tc PET 


Left Margin Center of screen 
No. CURSORS No. CURSORS 
PRINT@: TAB): DOWN PRINT@: TAB(_ ); DOWN 

Q 1 1 32 20 1 
64 1 2 96 20 2 
128 1 3 160 20 3 
192 1 4 224 20 4 
256 1 5 288 20 5 
320 1 6 352 20 6 
384 1 7 416 20 7 
448 1 8 480 20 8 
512 1 9 544 20 9 
576 1 10 608 20 10 
640 1 11 672 20 11 
704 1 12 736 20 12 
768 1 13 800 20 13 
832 1 14 864 20 14 
896 1 15 928 20 15 
960 1 16 992 20 16 


1024 (Beyond screen limits) 


TAB functions with variables for numbers; for example: 


10 A$="HELLO” 


20 PRINT “B": X=LEN(A$)/2:Y=20—X 
30 PRINT TAB (Y): 
40 PRINT A$ 


The PET has less characters allowed (40) on each line, 
but you have nine extra vertical lines to accommodate print- 
ing. 
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HTAB VTAB TAB( ); DOWN  HTAB VIAB TAB( ); DOWN 


10 
20 
30 
40 


a a a eS SI, 


CHART 3 
Screen Coordinate Conversion from APPLE I! to PET 


Left Margin Center of Screen 
No. No. 
CURSORS CURSORS 


1 1 1 1 20 1 20 1 
1 2 1 2 20 2 20 2 
1 3 1 3 20 3 20 3 
1 4 1 4 20 4 20 4 
1 5 1 5 20 5 20 5 
1 6 1 6 20 6 20 6 
1 7 1 7 20 7 20 7 
1 8 1 8 20 8 20 8 
1 ) 1 9 20 9 20 9 
1 10 1 10 20 10 20 10 
1 11 1 11 20 11 20 11 
1 12 1 12 20 12 20 12 
1 13 1 13 20 13 20 13 
1 14 1 14 20 14 20 14 
1 15 1 15 20 15 = =20 15 
1 16 1 16 20 16 20 16 


TAB functions with variables for numbers; for example: 


A$="HELLO” 

PRINT “IE”: X=LEN(A$)/2:Y=20—X 
PRINT TAB (Y); 

PRINT A$ 
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CHART 4 
Pet Graphic Sei 


mo mor 
es 
Tt ee ITZ 
fee fame PY 

tt 
eee OO TE 
frente frente pam 


i i 


| 
| 
T 41 
lw | 


S 
1 
i 
l 
) 


1 


A | 
4 
Si | 
i | 
1 
1 | 
| 
iii | 
| 
| 
| 
| 
| 
| 
| 


is) 
Ss 
1 
1 
oa 
Sh 


| = He | 
- ~@& 1 @ _i 
ian 


S 
i 
tH 
MH 
i) 
i 


Litt “AO fe Oa Pe 
| 
iW 
S$ RE | 


Pazar Run ronmms ose 
x 
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Character 


aa Fa NM et oid 0 ee 


1 


tO 


— On A 


<= 
(wttatin 


o, 
“oa 


-— ~ 
at, i = 


— 


mf] 


Screen Memory 


Location 


QO00000 
0000001 
0000010 
0000011 
0000100 
Q000101 
0000110 
0000111 
Q001000 
0001001 
0001010 
0001011 
0001100 
0001101 
0001110 
0001111 
0001000 
0001001 
0070001 
00711001 
0100001 
0101001 
0110001 
0111001 
1000001 
1001001 
1010001 
1011001 


Character 


oon Lewd - 


a | Ty; A oie 13! fac pl im me, 
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Screen Memory 


Location 


1700001 
1101001 
1110001 
1171001 
0000010 
0001010 
0010010 
0011010 
0100010 
0107010 
0110010 
0111010 
1000010 
1001010 
1010010 
1011010 
1100010 
1101010 
1170010 
1111010 
000007 1 
0001011 
0010011 
0011011 
0100011 
0101011 
0110011 
0111011 
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Screen iviemory Screen Memory 
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Character Location Character Location 
= 100001 1 | 0100101 
ce) 1001011 - 0101101 
101001 1 a 0110101 
; 1011011 TI 0111101 
x 110001 1 1 1000101 
= 1101011 | 1001101 
? 1110011 $ 1010101 
. 1111011 + 1011101 
_ 00007100 RS 1100101 
a 0001100 1101101 
i 0010100 T 1110101 
_ 0011100 4 1111101 

0100100 0000110 

0101100 | 00017710 
_ 0110100 = 0010110 
| 0111100 0011110 
| 1000100 0100110 
“, 1001100 0101110 
‘ 1010100 0110110 
“ 1011100 0111110 
L 1100100 1000110 
*, 1101100 1001110 
ro 1110100 1010110 
r 1111100 1011110 
“| 0000101 11001170 
a 0001101 1101110 
_ 0010101 11170110 
¢ 0011101 1111110 


Character 


loa ™—+ 445 


Screen Memory 


Location 


0000111 
0001111 
0010111 
0011111 
0100111 
0101111 
0110111 
0111711 


Character 
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Screen Memory 


Location 


1000111 
1001111 
1010111 
1011111 
1100111 
1101111 


1110111 
1117111 
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Any questions concerning this book or inquiries about 
professional translation service should be referred to: 


BRAIN BANK, Inc. 
170 Main Street 
Nashua, N.H. 03060 


Scrap a Ss TY 
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The BASIC Conversions Handbook for 
Apple™, TRS-80™, and PET™ Users 


The Brain Bank 
David A. Brain, Philip R. Oviatt, Paul J. A. Paquin, and Chandler D. Stone, Jr. 


Now you can convert a BASIC program for TRS-80, Apple II, or PET into the 
form of BASIC used by any other one of those machines. This is a complete 
guide to converting Apple I] and PET programs into the TRS-80, TRS-80 and 
PET programs into Apple II, and TRS-80 and Apple Ii programs into PET. Equiv- 
alent commands are listed for TRS-80 BASIC (Model |, Level II), Applesoft BASIC, 
and PET BASIC, as well as variations for the TRS-80 Model II! and Apple Integer 
BASIC. Also described are variations in graphics capabilities, PEEK, POKE, and 
CALL statements, cursor and control characters, memory locations, etc. 

In addition to a complete listing of equivalent commands, the book contains 
useful advice on the methodology of converting programs, explanations of machine 
peculiarities, and detailed explanations of Applesoft BASIC commands. Appendices 
provide useful subroutines, sample programs, and charts showing screen coordinate 
conversion. 
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William E. Lewis 
A valuable text for improving problem-solving techniques in computer programming. It 
provides not only a problem-solving background but also alternative solution paths from 
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book offers independent prescriptions that focus on remedies for typical programming 
problems. A special chapter on the top-down approach and a section on debugging are 
included. #5138-7, paper, 192 pages 

Also available in three other versions: BASIC — request #5200-6; FORTRAN — request 
#5430-0; PASCAL — request #5767-9. 


Ledgard Series: Programming Proverbs 

A valuable series of style guides for programmers. Each text offers short, illustrative 
examples that enable you to write carefully constructed, accurate, error-free programs 
on the first try. A special chapter outlines the top-down approach and is accompanied by 
sample programs. 

The series is available in five volumes: PASCAL WITH STYLE: Programming Proverbs, 
#5124-7, BASIC WITH STYLE: Programming Proverbs, #5115-8; COBOL WITH STYLE: 
Programming Proverbs, #5781-4,; FORTRAN WITH STYLE: Programming Proverbs, 
#5682-6: PROGRAMMING PROVERBS FOR FORTRAN PROGRAMMERS, #5820-9. 
LEDGARD SERIES, five volumes, #5158-1. 
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